&A ******************************KF ** CONNECT FOUR (REVISED) **pK ** BY **P ** BRIAN WILLIAMS **U ** GARDEN CITY COLLEGIATE **Z ** MARCH 1980 **] ** PH. 633-5117 **)_ ******************************;dQ$(6,7):""Ti560: INTRODUCTIONjn1145: GET NAMESs605: INSTRUCTIONSxC1:R16:R26:R36:R46:R56:R66:R76:450}" "<" ";P(C2)2C155"IT IS YOUR TURN ";P6$"INPUT COLUMN";165"IT IS YOUR TURN ";P8$9"INPUT COLUMN";PCOL$:COL$""165" "" ";COL(COL$)COL1195205R101350Q32894:PR1:R1R11:330?COL2215H225VR20135tQ32898:PR2:R2R21:330COL3235245R30135Q32902:PR3:R3R31:330COL4255265R40135Q32906:PR4:R4R41:330 COL5275 285" R50135@ Q32910:PR5:R5R51:330O COL6295X "305f 'R60135 ,Q32914:PR6:R6R61:330 1COL7315 6325 ;R70135 @Q32918:PR7:R7R71:330 E125 J(C2)C2395 OA1P TQ,77:Q1,78:Q40,78:Q41,77" YJ175:/ ^AP360S cQ,32:Q1,32:Q40,32:Q41,32_ hQQ120e m| rQ$(P,COL)"":900 wC42500 |CC1:490 125 ,205 A1P Q,85:Q1,73:Q40,74:Q41,75 J175: AP420 Q,32:Q1,32:Q40,32:Q41,32% QQ120+ B Q$(P,COL)"":900P C42500_ CC1:495h 125 " #1 #2 #3 #4 #5 #6 #7 " B16 4)" " 4)"        "= 4)"        "C n 4)" " 4)" ":   J1800: "";:"***************************************"$ Z122:"* *":S "***************************************"} "THIS GAME WAS A TIE" "DO YOU WANT TO PLAY AGAIN?"; S$ S$"Y"555 S$"N"550 !530 &"";: +"":110.0""Q5P1215:"";28);"":r:"";:P12130:"";:?"WELCOME TO CONNECT FOURDB13000:I" "'N"PROGRAMMED BY BRIAN WILLIAMS"NS"GARDEN CITY COLLEGIATE"X"JANUARY 1980":B13000::"":]59468,14:"D ՠԠ(Y/N)?":M$b""gM$"Y"635lM$"N"630q605;v59468,12:"":B11000::n{59468,14:"TŠŠƠԠҠӠ""ŠƠ٠Ġ. Y"" -ŠҠԠ""ǠҠӠΠ ""Š. WΠŠӠ"I"ΠΠԠ̠ŠϠ"v"͠ƠԠ, ҠϠ ""ŠŠҠ. Y""ŠӠϠĠנƠ""ӠŠǠϠ"("ҠԠ͠ǠŠ."R"PӠ٠٠Ϡ";eM$:M$""69559468,12:"YOUR ROW OF FOUR CAN BE""EITHER VERTICAL..."720795" ""        "E" "u"        " ""        "" ""        "@" "q"        "" ""        " " ":"HORIZONTAL...":720830Q33183,86:33185,86:33263,87:33265,86:33341,87 33343,87:33345,86:33421,87:33423,87:33425,86%33427,86:33225,221:33305,221*33385,221/"PRESS ANY KEY TO CONTINUE"4L9$:L9$""82097858>33267,87:33345,87:33347,86:33349,87:33423,87dC33425,86:33427,86:33429,86:33431,86H33426,192:33428,192:33430,192:B1300 :M"PRESS ANY KEY TO CONTINUE"RL9$:L9$""850W"OR DIAGONAL.":7200\33181,86:33261,87:33263,86:33265,86:33341,87fa33343,87:33345,86:33347,86:33419,87:33421,87f33423,86:33425,87:33427,86:33222,205k33304,205p33386,205u"PRESS ANY KEY TO CONTINUE"zL9$:L9$""890"":Z9$""B120 (CHECK FOR HORIZONTAL)<P116GP14UP2PP2lQ$(P1,P2)Z9$P2P2P3Q$(P1,P2)Z9$1080P:P1 (CHECK FOR VERTICAL)P117P13P2PP2Q$(P2,P1)Z9$P2 P2P3Q$(P2,P1)Z9$1080P:P16(CHECK FOR DIAGONAL [\] )JL1:KL:M1:NMUP13aP114mP214Q$(K,N)Z9$1015NM1:MM1:KL:P1:1020KK1:NN1:P2:1080LL1:KL:M1:NM:P(CHECK FOR DIAGONAL [/] )L6:KL:M1:NM P13P114*P214@Q$(K,N)Z9$1060^NM1:MM1:KL:P1:1065x$KK1:NN1:P2:1080)LL1:KL:M1:NM:P.Z9$"":B38Z9$""1115=""&BS122:"ڒ ڒ":VG""L" 'X' WON THE GAME "Q"NICE PLAYING ";P6$V525[""`S122:"ڒ ڒ":Ne""zj" '' WON THE GAME "o"NICE PLAYING ";P8$t525y"WHO WANTS TO BE 'X'? ";~P5$:P5$""1150"";P5$;:P6$P6$P5$E2E21E2121180+P5$(13)118051150>""d"WHO WANTS TO BE 'O'? ";zP7$:P7$""1190"";P7$;:P8$P8$P7$E3E31E3121220P7$(13)12201190"":: END OF CONNECT FOUR